screen 0,260,250
cls 1
mes "LOAD FILE NAME"
var4load_pic_name=""
input var4load_pic_name,120,20
ID4load_pic_name=stat
button "ǂݍ",*l_pic_load
mes "SAVE FILE NAME"
var4save_pic_name=""
input var4save_pic_name,120,20
ID4save_pic_name=stat
button "ۑ",*l_pic_save
mes "win_size"
var4win_size=""
input var4win_size,120,20
ID4win_size=stat
button "ϊ",*l_do_chg
screen 1,160,100
cls 2
screen 2,160,100
cls 3
gsel 0
pos 150,0
mes "ϊOcolor"
pos 150,20
mes "R"
pos 170,20
var4before_color_R=128
input var4before_color_R,50,20
ID4var4before_color_R=stat
pos 150,45
mes "G"
pos 170,45
var4before_color_G=128
input var4before_color_G,50,20
ID4var4before_color_G=stat
pos 150,70
mes "B"
pos 170,70
var4before_color_B=128
input var4before_color_B,50,20
ID4var4before_color_B=stat
pos 150,95
mes "ϊcolor"
pos 150,120
mes "R"
pos 170,120
var4after_color_R=0
input var4after_color_R,50,20
ID4var4after_color_R=stat
pos 150,145
mes "G"
pos 170,145
var4after_color_G=0
input var4after_color_G,50,20
ID4var4after_color_G=stat
pos 150,170
mes "B"
pos 170,170
var4after_color_B=0
input var4after_color_B,50,20
ID4var4after_color_B=stat
stop
*l_pic_save
	gsel 2
	bmpsave var4save_pic_name
	stop
*l_pic_load
	gsel 1
	picload var4load_pic_name
	pic_x=ginfo_winx
	pic_y=ginfo_winy
	gsel 0
	var4win_size=""+pic_x+","+pic_y
	objprm ID4win_size,var4win_size
	stop
*l_do_chg
	gsel 1
	pic_x=ginfo_winx
	pic_y=ginfo_winy

	repeat pic_y
		this_y=cnt
		repeat pic_x
			this_x=cnt
			pget this_x,this_y
			
				if ginfo_r==var4before_color_R{
					if ginfo_g==var4before_color_G{
						if ginfo_b==var4before_color_B{
							gsel 2
							color var4after_color_R,var4after_color_G,var4after_color_B
							pset this_x,this_y
							gsel 1
						}
					}
				}
		loop
	loop
	stop